home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-06 / logcopy.zip / SETDOS.ASM < prev    next >
Assembly Source File  |  1992-08-03  |  645b  |  43 lines
  1. ;-----------------------------------------------------------------------
  2. ;  Written by Keith P. Robison    Copyright Syracuse University 1988
  3. ;-----------------------------------------------------------------------
  4.     name    SETDOS_Interface
  5.  
  6.  
  7.     assume    cs: Code
  8.  
  9. Code     segment    public    'Code'
  10.  
  11.  
  12. ;
  13. ;
  14. ;    PC DOS interfaces
  15. ;
  16.     public    attrib       ;  DOS write file attribute
  17.  
  18.  
  19. attrib    proc    far
  20.  
  21.     push    bp
  22.     mov    bp,sp
  23.     mov    cx,[bp+06H]
  24.     mov    dx,[bp+08H]
  25.     INC    DX
  26.     mov    ax,[bp+0AH]
  27.     push    ds
  28.     mov    ds,ax
  29.     mov    ax,4301H
  30.     int    21H
  31.     jc    attrib_error
  32.     mov    ax,0000H
  33. attrib_error:
  34.     pop    ds
  35.     pop    bp
  36.     ret    06H
  37.  
  38. attrib    endp
  39.  
  40. Code     ends
  41.  
  42.     end
  43.